Building Endowment Preliminary Analysis

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(readr)
library(wesanderson)
library(purrr)
library(xml2)
library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2
## ──
## ✔ ggplot2 3.4.0     ✔ stringr 1.5.0
## ✔ tibble  3.1.8     ✔ forcats 0.5.2
## ✔ tidyr   1.3.0     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
library(ggplot2)
library(kableExtra)
## 
## Attaching package: 'kableExtra'
## 
## The following object is masked from 'package:dplyr':
## 
##     group_rows
library(plotly)
## 
## Attaching package: 'plotly'
## 
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## The following object is masked from 'package:graphics':
## 
##     layout
library(shiny)
library(here)
## here() starts at /Users/niezhen/Desktop/Spring 2023/SDS 410/smith-capstone-23
#functions of making graphs and tables
make_graph <- function(df){
  graph <- ggplot(df, aes(x = year, y = BookValueSum, color = as.factor(BusinessName))) +
  geom_line() +
  theme_bw() +
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 10, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 10),
        strip.text = element_text(face="bold",size = 5))
  return(graph)
}

Preliminary Analysis of PartIV Data

Term explained: Book value is an accounting term used for both a measure of a business’s equity and the value of an asset as it appears on a balance sheet. As time goes on, the cost stays the same, but the accumulated depreciation increases, so the book value decreases.

# filter out all data each year
data_each_year<-list(
  data_2015 <- filter(buildings, grepl("2015", ReturnTs)),
  data_2016 <- filter(buildings, grepl("2016", ReturnTs)),
  data_2017 <- filter(buildings, grepl("2017", ReturnTs)),
  data_2018 <- filter(buildings, grepl("2018", ReturnTs)),
  data_2019 <- filter(buildings, grepl("2019", ReturnTs)),
  data_2020 <- filter(buildings, grepl("2020", ReturnTs)),
  data_2021 <- filter(buildings, grepl("2021", ReturnTs)),
  data_2022 <- filter(buildings, grepl("2022", ReturnTs))
)
BookValueSum <- list()

# restore each year's sum for each EIN's buildings bookvalue 
for(i in c(1:8)){
  data = data_each_year[[i]]
  df <- data.frame(data %>% 
    filter(!is.na(TotalBookValueLandBuildingsAmt)) %>% 
    mutate_at(c("TotalBookValueLandBuildingsAmt"), as.numeric) %>% 
    group_by(EIN) %>% 
    summarise(
      BookValueSum = sum(TotalBookValueLandBuildingsAmt)
    ) %>% 
    mutate(year = 2014+i,
           EIN = as.numeric(EIN)))
           
  #print(df)
  BookValueSum[[i]] = df
}
#  convert the list into dataframe
bookvalues <- do.call(rbind, BookValueSum)
# rank book value based on quantile
bookvalues<-bookvalues %>%
  mutate(quantile = ntile(BookValueSum, 10),
         EIN = as.character(EIN)) %>% 
  arrange(desc(EIN)) %>% 
  left_join(y = companies, by = "EIN") %>% 
  left_join(y = ein_to_state, by = "EIN")

bookvalues<- unique(bookvalues)
saveRDS(bookvalues,here('data','bookvalues.RDS'))
#dataframe with higher Book Values
high <- bookvalues %>% 
  filter(year == 2020) %>% 
  filter(quantile >= 8) %>% 
  select(EIN) %>% 
  inner_join(bookvalues, by = "EIN") %>% 
  select(EIN, BookValueSum, year, quantile, organization_name.x)

medium <- bookvalues %>% 
  filter(year == 2020) %>% 
  filter(quantile > 3 & quantile < 7) %>% 
  select(EIN) %>% 
  inner_join(bookvalues, by = "EIN") %>% 
   select(EIN, BookValueSum, year, quantile, organization_name.x)
  
low <- bookvalues %>% 
  filter(year == 2020) %>% 
  filter(quantile <= 3) %>% 
  select(EIN) %>% 
  inner_join(bookvalues, by = "EIN") %>% 
   select(EIN, BookValueSum, year, quantile, organization_name.x)
# visualization of overall book value
total <- ggplot(bookvalues, aes(x = year, y = BookValueSum, color = as.factor(name))) +
  geom_line()+
  #scale_color_brewer(palette="BrBG")+
  theme_bw()+
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 12, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 10),
        strip.text = element_text(face="bold",size = 5),
        legend.key.size = unit(1, 'mm'),
        legend.text = element_text(size=7)) +
  labs(y = "Schedule D Sum of Buildings Book Value ($)",
       x = "Year",
       title = "Schedule D Sum of Buildings Book Value Change",
       subtitle = "By Fiscal Year")
ggplotly(total)
# separate EIN with medium and low building book value according to previous graph
# high
  high<-ggplot(high, aes(x = year, y = BookValueSum, color = as.factor(organization_name.x))) +
  geom_line() +
  theme_bw() +
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 10, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 10),
        strip.text = element_text(face="bold",size = 5)) +
  labs(y = "Schedule D Sum of Buildings Book Value",
       x = "Year",
       title = "Schedule D Sum of Buildings Book Value Change (High)",
       subtitle = "By Fiscal Year")

ggplotly(high)
# medium
medium <- ggplot(medium, aes(x = year, y = BookValueSum, color = as.factor(organization_name.x))) +
  geom_line()+
  theme_bw() +
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 8, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 7),
        strip.text = element_text(face="bold",size = 5)) +
  labs(y = "Schedule D Sum of Buildings Book Value",
       x = "Year",
       title = "Schedule D Sum of Buildings Book Value Change (Medium)",
       subtitle = "By Fiscal Year")

ggplotly(medium)
# low
  ggplot(low, aes(x = year, y = BookValueSum, color = as.factor(organization_name.x))) +
  geom_line()+
  theme_bw() +
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 10, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 10),
        strip.text = element_text(face="bold",size = 5)) +
  labs(y = "Schedule D Sum of Buildings Book Value",
       x = "Year",
       title = "Schedule D Sum of Buildings Book Value Change (Low)",
       subtitle = "By Fiscal Year")

The book value will decrease because of depreciation, so the normal trend of an EIN from previous visualization should be a slight downward line. I will filter out EIN with a bizarre trend that should be : 1) Abruptly going down 2) going up at any point 3) appear less than 3 years

Unusual EIN’s

# rank book value based on quantile
EIN_appearl_less_than_3<-bookvalues %>%
  mutate(quantile = ntile(BookValueSum, 10),
         EIN = as.character(EIN)) %>% 
  group_by(EIN) %>% 
  summarise(appear_times = n()) %>% 
  filter(appear_times < 3) %>% 
  inner_join(y=companies, by = c("EIN")) %>% 
  kbl(caption = "Unusual EIN (appear less than 3 times)") %>%
  kable_material() %>%
  row_spec(row = 0, background = "red", color = "white", bold = TRUE)
EIN_appearl_less_than_3
Unusual EIN (appear less than 3 times)
EIN appear_times ein organization_name dance_styles
161530816 1 161530816 Syracuse City Ballet ballet
20569320 2 20569320 Brooklyn Ballet ballet
205713495 1 205713495 Cuban Classical Ballet of Miami ballet
237003520 2 237003520 Oklahoma City Ballet ballet
237247909 1 237247909 New Mexico Ballet Company ballet
237282935 1 237282935 Carolina Ballet Theatre ballet
237424849 1 237424849 Saint Louis Ballet ballet
237427817 1 237427817 Orlando Ballet ballet
237447316 2 237447316 New Jersey Ballet Company ballet
260868264 2 260868264 Paradosi Ballet Company ballet
262443093 1 262443093 Ballet Virginia ballet
316000101 1 316000101 Dayton Ballet ballet
330461414 1 330461414 San Diego Ballet ballet
411703583 2 411703583 Ballet Minnesota ballet
452960043 2 452960043 Ballet des Ameriques modern_contemporary
452960043 2 452960043 Ballet des Ameriques ballet
460742535 1 460742535 NWA Ballet Theatre ballet
461513558 1 461513558 Ballet Vero Beach ballet
510161971 1 510161971 Lexington Ballet ballet
541244590 2 541244590 Manassas Ballet Theatre ballet
550397803 2 550397803 The Charleston Ballet ballet
561445383 1 561445383 Carolina Ballet ballet
616033779 2 616033779 Louisville Ballet ballet
820569013 2 820569013 Ballet Palm Beach ballet
953645705 2 953645705 Anaheim Ballet ballet

Percentage change of building’s book value

changes <- bookvalues %>% 
  group_by(EIN) %>% 
  mutate(change = (BookValueSum - lag(BookValueSum)) / lag(BookValueSum) * 100) %>%
  select(EIN, organization_name.x, year, BookValueSum, change) %>% 
  mutate(change_abs = abs(change)) 

#Making an infinite value NA
changes[145, ]$change = NA
# line graph of all percentage change from 2015-2022
all_changes_pct <- ggplot(changes, aes(x = year, y = changes$change, color =  as.factor(organization_name.x))) +
  geom_line(na.rm = FALSE, size = 0.2) +
  ylim(-200, 800)+
  theme_bw() +
  theme(legend.key.size = unit(1, 'mm'),
        legend.text = element_text(size=7))+
  theme(plot.title = element_text(size = 6, face = "bold", hjust = .5),
        axis.title = element_text(size = 4, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 4),
        axis.text.y = element_text(size = 4),
        strip.text = element_text(face="bold",size = 5)) +
  labs(y = "Change in Buildings Book Value Each Year (%)",
       x = "Year",
       title = "% Change in Bookvalues of Building Endowment each Fiscal Year",
       color = "EIN")
## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
ggplotly(all_changes_pct)
# filter out EIN with normal depreciation change
filtered_changes <- changes %>% 
  filter(change_abs > 10) %>% 
  ggplot(aes(x = year, y = change, color = as.factor(organization_name.x))) +
  geom_line(na.rm = FALSE, size = 0.2) +
  ylim(-200, 800)+
  theme_bw() +
  theme(legend.key.size = unit(1, 'mm'),
        legend.text = element_text(size=7))+
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 10, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 10),
        axis.text.y = element_text(size = 6),
        strip.text = element_text(face="bold",size = 5)) +
  labs(y = "Change in Buildings Book Value Each Year (%)",
       x = "Year",
       title = "Change in Bookvalues of Building Endowment each Fiscal Year",
       color = "EIN")


ggplotly(p = filtered_changes)
big_change<-changes %>% 
  filter(change_abs > 10) %>% 
  kbl(caption = "Changes larger than 10%") %>%
  kable_material() %>%
  row_spec(row = 0, background = "red", color = "white", bold = TRUE)
big_change  
Changes larger than 10%
EIN organization_name.x year BookValueSum change change_abs
952582305 California Ballet 2017 26319 -27.69307 27.69307
952582305 California Ballet 2018 16239 -38.29933 38.29933
952582305 California Ballet 2019 8761 -46.04963 46.04963
946137593 Peninsula Ballet Theatre 2017 68297 -12.83200 12.83200
946137593 Peninsula Ballet Theatre 2021 121685 64.56150 64.56150
943417247 Ballet Des Moines 2017 14876 -23.43010 23.43010
943417247 Ballet Des Moines 2018 10489 -29.49045 29.49045
943417247 Ballet Des Moines 2019 8966 -14.51997 14.51997
943417247 Ballet Des Moines 2020 14594 62.77047 62.77047
943395450 Oakland Ballet Company 2018 9112 -71.44469 71.44469
943395450 Oakland Ballet Company 2019 4638 -49.10009 49.10009
943395450 Oakland Ballet Company 2020 164 -96.46399 96.46399
943197247 Smuin Ballet 2016 171828 62.81767 62.81767
943197247 Smuin Ballet 2017 278243 61.93112 61.93112
943197247 Smuin Ballet 2018 385326 38.48542 38.48542
943197247 Smuin Ballet 2020 119123 -69.08514 69.08514
943197247 Smuin Ballet 2021 8681806 7188.10221 7188.10221
942952809 Utah Metropolitan Ballet 2017 46927 521.71436 521.71436
942952809 Utah Metropolitan Ballet 2019 92905 97.97771 97.97771
942952809 Utah Metropolitan Ballet 2020 74867 -19.41553 19.41553
942952809 Utah Metropolitan Ballet 2021 57979 -22.55733 22.55733
942933309 Alonzo King LINES Ballet 2018 336201 -18.04813 18.04813
942933309 Alonzo King LINES Ballet 2019 165563 -50.75476 50.75476
942933309 Alonzo King LINES Ballet 2021 111889 -29.63487 29.63487
942933309 Alonzo King LINES Ballet 2022 34484 -69.18017 69.18017
942711919 Post:ballet 2017 3080 341.89383 341.89383
942711919 Post:ballet 2018 36568 1087.27273 1087.27273
942711919 Post:ballet 2019 236762 547.45679 547.45679
942711919 Post:ballet 2020 193489 -18.27700 18.27700
942711919 Post:ballet 2021 170257 -12.00688 12.00688
942427112 Nevada Ballet Theatre 2021 6616982 73.10414 73.10414
941674349 Sacramento Ballet 2017 300092 655.67083 655.67083
941674349 Sacramento Ballet 2018 1879949 526.45755 526.45755
941674349 Sacramento Ballet 2019 1681547 -10.55358 10.55358
941415298 San Francisco Ballet 2019 21805578 -10.51488 10.51488
931009305 Oregon Ballet Theatre 2017 1124223 -51.58523 51.58523
931009305 Oregon Ballet Theatre 2018 432647 -61.51591 61.51591
931009305 Oregon Ballet Theatre 2020 327843 -29.10292 29.10292
931009305 Oregon Ballet Theatre 2021 194365 -40.71400 40.71400
930765746 Eugene Ballet 2020 3681926 91.08653 91.08653
930765746 Eugene Ballet 2022 2120381 -42.41109 42.41109
911976719 ARC Dance Company 2017 5305 -34.92395 34.92395
911976719 ARC Dance Company 2018 6705 26.39020 26.39020
911976719 ARC Dance Company 2020 3569 -44.37344 44.37344
911976719 ARC Dance Company 2021 4418 23.78818 23.78818
910897129 Pacific Northwest Ballet 2017 5816733 17.75333 17.75333
910897129 Pacific Northwest Ballet 2018 10494360 80.41674 80.41674
910897129 Pacific Northwest Ballet 2019 13543531 29.05533 29.05533
900545068 Charlottesville Ballet 2017 123310 100.04867 100.04867
880491536 Sierra Nevada Ballet 2019 11828 250.25170 250.25170
880491536 Sierra Nevada Ballet 2020 -97925 -927.90835 927.90835
880491536 Sierra Nevada Ballet 2021 6285 -106.41818 106.41818
870264274 Ballet West 2017 2135952 24.75932 24.75932
870264274 Ballet West 2018 3341498 56.44069 56.44069
870264274 Ballet West 2019 4342935 29.96970 29.96970
841622654 Texas Ballet Theater 2018 1096480 14.17349 14.17349
841622654 Texas Ballet Theater 2019 1229186 12.10291 12.10291
841622654 Texas Ballet Theater 2020 959991 NA 21.90027
841622654 Texas Ballet Theater 2021 6675391 595.35975 595.35975
841223229 Wonderbound 2016 67821 -15.98201 15.98201
841223229 Wonderbound 2017 76170 12.31035 12.31035
841223229 Wonderbound 2018 86359 13.37666 13.37666
841223229 Wonderbound 2019 137094 58.74894 58.74894
841150857 Aspen Santa Fe Ballet 2017 204671 -13.58149 13.58149
841150857 Aspen Santa Fe Ballet 2018 175847 -14.08309 14.08309
841150857 Aspen Santa Fe Ballet 2019 152696 -13.16542 13.16542
841150857 Aspen Santa Fe Ballet 2020 133524 -12.55567 12.55567
841150857 Aspen Santa Fe Ballet 2021 96963 -27.38159 27.38159
840776736 Canyon Concert Ballet 2019 1400356 91.50508 91.50508
840776736 Canyon Concert Ballet 2020 724838 -48.23902 48.23902
820569013 Ballet Palm Beach 2020 4302 -53.25945 53.25945
820301511 Ballet Idaho 2017 419863 78.73584 78.73584
820301511 Ballet Idaho 2019 344347 -17.98587 17.98587
820301511 Ballet Idaho 2020 652351 89.44582 89.44582
820301511 Ballet Idaho 2021 1964392 201.12501 201.12501
813872831 Ballet Sun Valley 2019 4766 -22.25122 22.25122
813872831 Ballet Sun Valley 2020 5620 17.91859 17.91859
813872831 Ballet Sun Valley 2022 85028 1412.95374 1412.95374
811657501 New Ballet - San Jose 2017 14576 1470.68966 1470.68966
811657501 New Ballet - San Jose 2019 33474 129.65148 129.65148
811657501 New Ballet - San Jose 2021 242245 577.47574 577.47574
800923968 Bay Pointe Ballet 2017 383892 15.81920 15.81920
770154765 Central West Ballet 2016 36653 -36.63146 36.63146
770154765 Central West Ballet 2017 26128 -28.71525 28.71525
770154765 Central West Ballet 2018 19955 -23.62600 23.62600
770154765 Central West Ballet 2020 15013 -24.76572 24.76572
770154765 Central West Ballet 2021 9771 -34.91641 34.91641
742371103 Ballet San Antonio 2018 7926 -29.40233 29.40233
742371103 Ballet San Antonio 2019 3773 -52.39717 52.39717
742371103 Ballet San Antonio 2020 7200 90.82958 90.82958
742371103 Ballet San Antonio 2021 134186 1763.69444 1763.69444
730667485 Tulsa Ballet 2017 16339230 32.47090 32.47090
730667485 Tulsa Ballet 2018 34586787 111.67942 111.67942
730667485 Tulsa Ballet 2020 16528125 -52.21260 52.21260
650135900 The Sarasota Ballet 2018 1079228 36.52922 36.52922
650135900 The Sarasota Ballet 2020 1425601 46.17006 46.17006
640732185 Ballet Magnificat! 2018 386357 18.30321 18.30321
640732185 Ballet Magnificat! 2019 324219 -16.08305 16.08305
640732185 Ballet Magnificat! 2020 285791 -11.85248 11.85248
630813626 The Alabama Ballet 2019 2663508 93.35531 93.35531
630813626 The Alabama Ballet 2020 1278406 -52.00292 52.00292
630505056 Huntsville Ballet Company 2018 1559817 96.82780 96.82780
630505056 Huntsville Ballet Company 2020 773744 -50.39521 50.39521
621018942 Ballet Memphis 2019 20929276 793.57721 793.57721
621018942 Ballet Memphis 2020 39382192 88.16796 88.16796
61478674 Mystic Ballet 2018 13197 -73.66972 73.66972
61478674 Mystic Ballet 2019 6726 -49.03387 49.03387
61478674 Mystic Ballet 2020 255 -96.20874 96.20874
611329176 Kentucky Ballet Theatre 2019 8170 96.82004 96.82004
611329176 Kentucky Ballet Theatre 2020 20349 149.06977 149.06977
61039302 Connecticut Ballet 2017 6666 -42.66793 42.66793
61039302 Connecticut Ballet 2020 0 -100.00000 100.00000
592578534 Miami City Ballet 2019 2697535 57.55682 57.55682
592578534 Miami City Ballet 2020 6489758 140.58105 140.58105
592578534 Miami City Ballet 2021 3098193 -52.26027 52.26027
591837297 Florida Ballet Jacksonville 2021 1563324 5812.05234 5812.05234
591834099 Ballet Pensacola 2017 494874 328.74817 328.74817
591834099 Ballet Pensacola 2019 286637 -42.07879 42.07879
591834099 Ballet Pensacola 2020 331555 15.67069 15.67069
581891235 Ballethnic Dance Company 2019 201962 -48.58532 48.58532
581891235 Ballethnic Dance Company 2020 181654 -10.05536 10.05536
581891235 Ballethnic Dance Company 2021 161346 -11.17950 11.17950
581336559 Gwinnett Ballet Theatre 2018 47645 -21.10057 21.10057
581336559 Gwinnett Ballet Theatre 2019 35409 -25.68160 25.68160
581336559 Gwinnett Ballet Theatre 2020 27459 -22.45192 22.45192
581336559 Gwinnett Ballet Theatre 2021 11162 -59.35030 59.35030
581047778 Atlanta Ballet 2018 19252868 102.51900 102.51900
581047778 Atlanta Ballet 2020 13665485 -29.02104 29.02104
546049848 Richmond Ballet 2019 6545921 35.33704 35.33704
546049848 Richmond Ballet 2020 12604512 92.55521 92.55521
542124670 Terpsicorps Theatre of Dance 2021 53455 -28.68959 28.68959
541244590 Manassas Ballet Theatre 2022 55175 -17.67260 17.67260
521151372 Ballet Theatre of Maryland 2017 171413 15.86265 15.86265
521151372 Ballet Theatre of Maryland 2018 195998 14.34255 14.34255
521151372 Ballet Theatre of Maryland 2020 151438 -14.96212 14.96212
520846173 The Washington Ballet 2017 6463662 19.90090 19.90090
520846173 The Washington Ballet 2021 3267115 -38.46884 38.46884
510394850 First State Ballet Theatre 2017 34647 -14.50463 14.50463
510394850 First State Ballet Theatre 2018 29264 -15.53670 15.53670
510394850 First State Ballet Theatre 2019 25732 -12.06944 12.06944
510394850 First State Ballet Theatre 2021 14904 -46.30544 46.30544
50377245 Festival Ballet Providence 2021 521588 19.78110 19.78110
462580700 Moveius Contemporary Ballet 2020 317578 -43.37660 43.37660
46193015 Albany Berkshire Ballet 2018 5130 -31.40794 31.40794
46193015 Albany Berkshire Ballet 2019 4071 -20.64327 20.64327
46193015 Albany Berkshire Ballet 2020 3051 -25.05527 25.05527
46193015 Albany Berkshire Ballet 2021 2031 -33.43166 33.43166
455395602 Ballet 5:8 2018 25071 -52.73101 52.73101
455395602 Ballet 5:8 2020 120468 422.20729 422.20729
454864757 Dissonance Dance Theatre 2021 80000 23.07692 23.07692
454231295 Marigny Opera Ballet 2019 9434 314.31708 314.31708
454231295 Marigny Opera Ballet 2020 11151 18.20013 18.20013
454231295 Marigny Opera Ballet 2022 7783 -28.55700 28.55700
452461068 Menlowe Ballet 2019 1131 -28.59848 28.59848
452461068 Menlowe Ballet 2020 808 -28.55880 28.55880
452461068 Menlowe Ballet 2021 577 -28.58911 28.58911
436052680 Kansas City Ballet 2017 1936344 75.60997 75.60997
436052680 Kansas City Ballet 2018 25085291 1195.49765 1195.49765
431756712 Missouri Contemporary Ballet 2016 3078 -40.00000 40.00000
431756712 Missouri Contemporary Ballet 2018 862 -71.99480 71.99480
42312734 Boston Ballet 2018 12896913 10.25203 10.25203
42312734 Boston Ballet 2019 14191325 10.03660 10.03660
42312734 Boston Ballet 2020 12721180 -10.35946 10.35946
42312734 Boston Ballet 2021 11284209 -11.29589 11.29589
421366753 Ballet Quad Cities 2017 15656 935.44974 935.44974
421366753 Ballet Quad Cities 2018 11653 -25.56847 25.56847
421366753 Ballet Quad Cities 2021 895 -92.31957 92.31957
416055588 The Minnesota Ballet 2017 67492 30.89992 30.89992
416055588 The Minnesota Ballet 2018 59422 -11.95697 11.95697
416055588 The Minnesota Ballet 2019 79119 33.14766 33.14766
416055588 The Minnesota Ballet 2020 68034 -14.01054 14.01054
416055588 The Minnesota Ballet 2021 47277 -30.50975 30.50975
412168110 Ballet Fantastique 2019 7950 -10.72431 10.72431
412168110 Ballet Fantastique 2020 6995 -12.01258 12.01258
412168110 Ballet Fantastique 2021 6040 -13.65261 13.65261
412168110 Ballet Fantastique 2022 5085 -15.81126 15.81126
411787932 James Sewell Ballet 2018 99101 -15.30336 15.30336
411787932 James Sewell Ballet 2020 7696 -91.51862 91.51862
411787932 James Sewell Ballet 2022 2810 -63.48753 63.48753
391387619 Madison Ballet 2020 363510 161.16288 161.16288
391134735 Milwaukee Ballet 2019 23903282 1889.60404 1889.60404
383945001 Cleveland Ballet 2021 58105 2000.68691 2000.68691
383945001 Cleveland Ballet 2022 101898 75.36873 75.36873
382026127 Grand Rapids Ballet 2017 5065253 -54.05215 54.05215
356006394 Fort Wayne Ballet 2019 64078 -38.28744 38.28744
356006394 Fort Wayne Ballet 2020 99710 55.60723 55.60723
342066059 Indianapolis Ballet 2017 20679 -15.57524 15.57524
342066059 Indianapolis Ballet 2018 25647 24.02437 24.02437
342066059 Indianapolis Ballet 2019 19914 -22.35349 22.35349
342066059 Indianapolis Ballet 2020 26689 34.02129 34.02129
341645238 Verb Ballets 2017 2736 -48.73524 48.73524
341645238 Verb Ballets 2018 47950 1652.55848 1652.55848
316050354 Cincinnati Ballet 2016 1698759 -20.44323 20.44323
316050354 Cincinnati Ballet 2018 1231520 -27.50473 27.50473
316050354 Cincinnati Ballet 2019 905727 -26.45454 26.45454
316050354 Cincinnati Ballet 2021 804973 -15.10434 15.10434
311784286 BalletX 2017 22171 -15.30675 15.30675
311784286 BalletX 2018 797277 3496.03536 3496.03536
311784286 BalletX 2019 702459 -11.89273 11.89273
311784286 BalletX 2021 613678 -12.63860 12.63860
310858562 BalletMet 2018 4766315 -54.19481 54.19481
310858562 BalletMet 2019 9643599 102.32819 102.32819
310858562 BalletMet 2021 4554690 -52.76981 52.76981
271093011 American Midwest Ballet 2019 13400 1333.15508 1333.15508
271093011 American Midwest Ballet 2020 8039 -40.00746 40.00746
271093011 American Midwest Ballet 2021 4798 -40.31596 40.31596
264256235 Winston-Salem Festival Ballet 2017 13710 -20.84296 20.84296
264256235 Winston-Salem Festival Ballet 2018 10468 -23.64697 23.64697
264256235 Winston-Salem Festival Ballet 2019 7375 -29.54719 29.54719
264256235 Winston-Salem Festival Ballet 2020 5898 -20.02712 20.02712
260868264 Paradosi Ballet Company 2018 3178 -48.81623 48.81623
237447316 New Jersey Ballet Company 2021 604299 806.22647 806.22647
237273533 The Tallahassee Ballet 2017 21024 -22.50359 22.50359
237273533 The Tallahassee Ballet 2019 13444 -34.79800 34.79800
237273533 The Tallahassee Ballet 2020 18848 40.19637 40.19637
237247009 Chattanooga Ballet 2020 708055 88.46989 88.46989
237247009 Chattanooga Ballet 2021 340908 -51.85289 51.85289
237161084 PHILADANCO! 2017 173387 -11.59633 11.59633
237161084 PHILADANCO! 2018 1037514 498.38050 498.38050
237133145 Columbia City Ballet 2017 7303 -46.98367 46.98367
237133145 Columbia City Ballet 2018 2826 -61.30357 61.30357
237133145 Columbia City Ballet 2021 0 -100.00000 100.00000
237101094 Pittsburgh Ballet Theatre 2016 7650146 86.47300 86.47300
237101094 Pittsburgh Ballet Theatre 2017 9708397 26.90473 26.90473
231629970 Pennsylvania Ballet 2020 14028295 10.75569 10.75569
223466604 Roxey Ballet 2016 224 -55.73123 55.73123
223466604 Roxey Ballet 2017 128 -42.85714 42.85714
223466604 Roxey Ballet 2019 1315 927.34375 927.34375
223466604 Roxey Ballet 2020 1678 27.60456 27.60456
222587551 Island Moving Company 2016 0 -100.00000 100.00000
222587551 Island Moving Company 2017 166179 Inf Inf
222411345 Atlantic City Ballet 2018 1439 -94.04585 94.04585
222411345 Atlantic City Ballet 2020 1207 -16.12231 16.12231
210732575 American Repertory Ballet 2018 1174846 -49.15865 49.15865
210732575 American Repertory Ballet 2019 1036609 -11.76639 11.76639
205888512 Collage Dance Collective 2017 21537 -29.48399 29.48399
205888512 Collage Dance Collective 2018 14249 -33.83944 33.83944
205888512 Collage Dance Collective 2019 7197 -49.49119 49.49119
205888512 Collage Dance Collective 2021 695755 9567.29193 9567.29193
205888512 Collage Dance Collective 2022 228079 -67.21849 67.21849
203447830 Boulder Ballet 2016 85536 -33908.69565 33908.69565
203447830 Boulder Ballet 2017 70442 -17.64637 17.64637
203447830 Boulder Ballet 2020 44415 -36.94813 36.94813
203447830 Boulder Ballet 2021 29813 -32.87628 32.87628
201819852 Los Angeles Ballet 2017 161156 -19.41999 19.41999
201819852 Los Angeles Ballet 2018 121738 -24.45953 24.45953
201819852 Los Angeles Ballet 2019 83285 -31.58669 31.58669
201819852 Los Angeles Ballet 2020 102312 22.84565 22.84565
161328541 Rochester City Ballet 2017 182880 -87.80802 87.80802
161328541 Rochester City Ballet 2020 171286 -15.04176 15.04176
161328541 Rochester City Ballet 2021 139098 -18.79196 18.79196
134280268 American Contemporary Ballet 2019 6480 -28.57930 28.57930
134280268 American Contemporary Ballet 2021 4045 -37.57716 37.57716
133307859 Armitage Gone! Dance 2017 12150 -89.70836 89.70836
133307859 Armitage Gone! Dance 2018 10372 -14.63374 14.63374
133307859 Armitage Gone! Dance 2020 8857 -17.70117 17.70117
133307859 Armitage Gone! Dance 2021 10855 22.55843 22.55843
133235682 New York Theatre Ballet 2018 119040 102.58679 102.58679
133235682 New York Theatre Ballet 2019 104320 -12.36559 12.36559
133235682 New York Theatre Ballet 2020 89600 -14.11043 14.11043
132947386 New York City Ballet 2019 78776944 309.81499 309.81499
132685755 Ballet Hispanico 2018 18636354 92.79748 92.79748
132685755 Ballet Hispanico 2020 8750581 -53.04564 53.04564
132584273 Alvin Ailey American Dance Theater 2018 53775688 42.49872 42.49872
131882106 American Ballet Theatre 2016 6949069 17.78384 17.78384
131882106 American Ballet Theatre 2017 6033616 -13.17375 13.17375
131882106 American Ballet Theatre 2018 7837814 29.90243 29.90243
131882106 American Ballet Theatre 2020 6679044 -13.72120 13.72120
131882106 American Ballet Theatre 2021 5739009 -14.07439 14.07439
10372997 Portland Ballet 2019 291380 77.07795 77.07795
10372997 Portland Ballet 2021 139505 -52.12266 52.12266

Book Value Changes %

# summarize all companies changes
summary(changes$change) 
##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max.      NA's 
## -33908.70    -13.67     -1.63       Inf      1.08       Inf       151
#ranking of all change in book values
ranking<-changes %>%
  arrange(desc(change_abs)) %>% 
  select(EIN, organization_name.x, year, change, BookValueSum) %>% 
  kbl(caption = "Ranking of Change in Book Value Per Year  (%)") %>%
  kable_material() %>%
  row_spec(row = 0, background = "red", color = "white", bold = TRUE)
ranking
Ranking of Change in Book Value Per Year (%)
EIN organization_name.x year change BookValueSum
222587551 Island Moving Company 2017 Inf 166179
203447830 Boulder Ballet 2016 -3.390870e+04 85536
205888512 Collage Dance Collective 2021 9.567292e+03 695755
943197247 Smuin Ballet 2021 7.188102e+03 8681806
591837297 Florida Ballet Jacksonville 2021 5.812052e+03 1563324
311784286 BalletX 2018 3.496035e+03 797277
383945001 Cleveland Ballet 2021 2.000687e+03 58105
391134735 Milwaukee Ballet 2019 1.889604e+03 23903282
742371103 Ballet San Antonio 2021 1.763694e+03 134186
341645238 Verb Ballets 2018 1.652558e+03 47950
811657501 New Ballet - San Jose 2017 1.470690e+03 14576
813872831 Ballet Sun Valley 2022 1.412954e+03 85028
271093011 American Midwest Ballet 2019 1.333155e+03 13400
436052680 Kansas City Ballet 2018 1.195498e+03 25085291
942711919 Post:ballet 2018 1.087273e+03 36568
421366753 Ballet Quad Cities 2017 9.354497e+02 15656
880491536 Sierra Nevada Ballet 2020 -9.279084e+02 -97925
223466604 Roxey Ballet 2019 9.273438e+02 1315
237447316 New Jersey Ballet Company 2021 8.062265e+02 604299
621018942 Ballet Memphis 2019 7.935772e+02 20929276
941674349 Sacramento Ballet 2017 6.556708e+02 300092
841622654 Texas Ballet Theater 2021 5.953597e+02 6675391
811657501 New Ballet - San Jose 2021 5.774757e+02 242245
942711919 Post:ballet 2019 5.474568e+02 236762
941674349 Sacramento Ballet 2018 5.264576e+02 1879949
942952809 Utah Metropolitan Ballet 2017 5.217144e+02 46927
237161084 PHILADANCO! 2018 4.983805e+02 1037514
455395602 Ballet 5:8 2020 4.222073e+02 120468
942711919 Post:ballet 2017 3.418938e+02 3080
591834099 Ballet Pensacola 2017 3.287482e+02 494874
454231295 Marigny Opera Ballet 2019 3.143171e+02 9434
132947386 New York City Ballet 2019 3.098150e+02 78776944
880491536 Sierra Nevada Ballet 2019 2.502517e+02 11828
820301511 Ballet Idaho 2021 2.011250e+02 1964392
391387619 Madison Ballet 2020 1.611629e+02 363510
611329176 Kentucky Ballet Theatre 2020 1.490698e+02 20349
592578534 Miami City Ballet 2020 1.405810e+02 6489758
811657501 New Ballet - San Jose 2019 1.296515e+02 33474
730667485 Tulsa Ballet 2018 1.116794e+02 34586787
880491536 Sierra Nevada Ballet 2021 -1.064182e+02 6285
133235682 New York Theatre Ballet 2018 1.025868e+02 119040
581047778 Atlanta Ballet 2018 1.025190e+02 19252868
310858562 BalletMet 2019 1.023282e+02 9643599
900545068 Charlottesville Ballet 2017 1.000487e+02 123310
61039302 Connecticut Ballet 2020 -1.000000e+02 0
237133145 Columbia City Ballet 2021 -1.000000e+02 0
222587551 Island Moving Company 2016 -1.000000e+02 0
942952809 Utah Metropolitan Ballet 2019 9.797771e+01 92905
630505056 Huntsville Ballet Company 2018 9.682780e+01 1559817
611329176 Kentucky Ballet Theatre 2019 9.682004e+01 8170
943395450 Oakland Ballet Company 2020 -9.646399e+01 164
61478674 Mystic Ballet 2020 -9.620874e+01 255
222411345 Atlantic City Ballet 2018 -9.404585e+01 1439
630813626 The Alabama Ballet 2019 9.335531e+01 2663508
132685755 Ballet Hispanico 2018 9.279748e+01 18636354
546049848 Richmond Ballet 2020 9.255521e+01 12604512
421366753 Ballet Quad Cities 2021 -9.231957e+01 895
411787932 James Sewell Ballet 2020 -9.151862e+01 7696
840776736 Canyon Concert Ballet 2019 9.150508e+01 1400356
930765746 Eugene Ballet 2020 9.108653e+01 3681926
742371103 Ballet San Antonio 2020 9.082958e+01 7200
133307859 Armitage Gone! Dance 2017 -8.970836e+01 12150
820301511 Ballet Idaho 2020 8.944582e+01 652351
237247009 Chattanooga Ballet 2020 8.846989e+01 708055
621018942 Ballet Memphis 2020 8.816796e+01 39382192
161328541 Rochester City Ballet 2017 -8.780802e+01 182880
237101094 Pittsburgh Ballet Theatre 2016 8.647300e+01 7650146
910897129 Pacific Northwest Ballet 2018 8.041674e+01 10494360
820301511 Ballet Idaho 2017 7.873584e+01 419863
10372997 Portland Ballet 2019 7.707795e+01 291380
436052680 Kansas City Ballet 2017 7.560997e+01 1936344
383945001 Cleveland Ballet 2022 7.536873e+01 101898
61478674 Mystic Ballet 2018 -7.366972e+01 13197
942427112 Nevada Ballet Theatre 2021 7.310414e+01 6616982
431756712 Missouri Contemporary Ballet 2018 -7.199480e+01 862
943395450 Oakland Ballet Company 2018 -7.144469e+01 9112
942933309 Alonzo King LINES Ballet 2022 -6.918017e+01 34484
943197247 Smuin Ballet 2020 -6.908514e+01 119123
205888512 Collage Dance Collective 2022 -6.721849e+01 228079
946137593 Peninsula Ballet Theatre 2021 6.456150e+01 121685
411787932 James Sewell Ballet 2022 -6.348753e+01 2810
943197247 Smuin Ballet 2016 6.281767e+01 171828
943417247 Ballet Des Moines 2020 6.277047e+01 14594
943197247 Smuin Ballet 2017 6.193112e+01 278243
931009305 Oregon Ballet Theatre 2018 -6.151591e+01 432647
237133145 Columbia City Ballet 2018 -6.130357e+01 2826
581336559 Gwinnett Ballet Theatre 2021 -5.935030e+01 11162
841223229 Wonderbound 2019 5.874894e+01 137094
592578534 Miami City Ballet 2019 5.755682e+01 2697535
870264274 Ballet West 2018 5.644069e+01 3341498
223466604 Roxey Ballet 2016 -5.573123e+01 224
356006394 Fort Wayne Ballet 2020 5.560723e+01 99710
310858562 BalletMet 2018 -5.419481e+01 4766315
382026127 Grand Rapids Ballet 2017 -5.405215e+01 5065253
820569013 Ballet Palm Beach 2020 -5.325945e+01 4302
132685755 Ballet Hispanico 2020 -5.304564e+01 8750581
310858562 BalletMet 2021 -5.276981e+01 4554690
455395602 Ballet 5:8 2018 -5.273101e+01 25071
742371103 Ballet San Antonio 2019 -5.239717e+01 3773
592578534 Miami City Ballet 2021 -5.226027e+01 3098193
730667485 Tulsa Ballet 2020 -5.221260e+01 16528125
10372997 Portland Ballet 2021 -5.212266e+01 139505
630813626 The Alabama Ballet 2020 -5.200292e+01 1278406
237247009 Chattanooga Ballet 2021 -5.185289e+01 340908
931009305 Oregon Ballet Theatre 2017 -5.158523e+01 1124223
942933309 Alonzo King LINES Ballet 2019 -5.075476e+01 165563
630505056 Huntsville Ballet Company 2020 -5.039521e+01 773744
205888512 Collage Dance Collective 2019 -4.949119e+01 7197
210732575 American Repertory Ballet 2018 -4.915865e+01 1174846
943395450 Oakland Ballet Company 2019 -4.910009e+01 4638
61478674 Mystic Ballet 2019 -4.903387e+01 6726
260868264 Paradosi Ballet Company 2018 -4.881623e+01 3178
341645238 Verb Ballets 2017 -4.873524e+01 2736
581891235 Ballethnic Dance Company 2019 -4.858532e+01 201962
840776736 Canyon Concert Ballet 2020 -4.823902e+01 724838
237133145 Columbia City Ballet 2017 -4.698367e+01 7303
510394850 First State Ballet Theatre 2021 -4.630544e+01 14904
650135900 The Sarasota Ballet 2020 4.617006e+01 1425601
952582305 California Ballet 2019 -4.604963e+01 8761
911976719 ARC Dance Company 2020 -4.437344e+01 3569
462580700 Moveius Contemporary Ballet 2020 -4.337660e+01 317578
223466604 Roxey Ballet 2017 -4.285714e+01 128
61039302 Connecticut Ballet 2017 -4.266793e+01 6666
132584273 Alvin Ailey American Dance Theater 2018 4.249872e+01 53775688
930765746 Eugene Ballet 2022 -4.241109e+01 2120381
591834099 Ballet Pensacola 2019 -4.207879e+01 286637
931009305 Oregon Ballet Theatre 2021 -4.071400e+01 194365
271093011 American Midwest Ballet 2021 -4.031596e+01 4798
237273533 The Tallahassee Ballet 2020 4.019637e+01 18848
271093011 American Midwest Ballet 2020 -4.000746e+01 8039
431756712 Missouri Contemporary Ballet 2016 -4.000000e+01 3078
943197247 Smuin Ballet 2018 3.848542e+01 385326
520846173 The Washington Ballet 2021 -3.846884e+01 3267115
952582305 California Ballet 2018 -3.829933e+01 16239
356006394 Fort Wayne Ballet 2019 -3.828744e+01 64078
134280268 American Contemporary Ballet 2021 -3.757716e+01 4045
203447830 Boulder Ballet 2020 -3.694813e+01 44415
770154765 Central West Ballet 2016 -3.663146e+01 36653
650135900 The Sarasota Ballet 2018 3.652922e+01 1079228
546049848 Richmond Ballet 2019 3.533704e+01 6545921
911976719 ARC Dance Company 2017 -3.492395e+01 5305
770154765 Central West Ballet 2021 -3.491641e+01 9771
237273533 The Tallahassee Ballet 2019 -3.479800e+01 13444
342066059 Indianapolis Ballet 2020 3.402129e+01 26689
205888512 Collage Dance Collective 2018 -3.383944e+01 14249
46193015 Albany Berkshire Ballet 2021 -3.343166e+01 2031
416055588 The Minnesota Ballet 2019 3.314766e+01 79119
203447830 Boulder Ballet 2021 -3.287628e+01 29813
730667485 Tulsa Ballet 2017 3.247090e+01 16339230
201819852 Los Angeles Ballet 2019 -3.158669e+01 83285
46193015 Albany Berkshire Ballet 2018 -3.140794e+01 5130
416055588 The Minnesota Ballet 2017 3.089992e+01 67492
416055588 The Minnesota Ballet 2021 -3.050975e+01 47277
870264274 Ballet West 2019 2.996970e+01 4342935
131882106 American Ballet Theatre 2018 2.990243e+01 7837814
942933309 Alonzo King LINES Ballet 2021 -2.963487e+01 111889
264256235 Winston-Salem Festival Ballet 2019 -2.954719e+01 7375
943417247 Ballet Des Moines 2018 -2.949045e+01 10489
205888512 Collage Dance Collective 2017 -2.948399e+01 21537
742371103 Ballet San Antonio 2018 -2.940233e+01 7926
931009305 Oregon Ballet Theatre 2020 -2.910292e+01 327843
910897129 Pacific Northwest Ballet 2019 2.905533e+01 13543531
581047778 Atlanta Ballet 2020 -2.902104e+01 13665485
770154765 Central West Ballet 2017 -2.871525e+01 26128
542124670 Terpsicorps Theatre of Dance 2021 -2.868959e+01 53455
452461068 Menlowe Ballet 2019 -2.859848e+01 1131
452461068 Menlowe Ballet 2021 -2.858911e+01 577
134280268 American Contemporary Ballet 2019 -2.857930e+01 6480
452461068 Menlowe Ballet 2020 -2.855880e+01 808
454231295 Marigny Opera Ballet 2022 -2.855700e+01 7783
952582305 California Ballet 2017 -2.769307e+01 26319
223466604 Roxey Ballet 2020 2.760456e+01 1678
316050354 Cincinnati Ballet 2018 -2.750473e+01 1231520
841150857 Aspen Santa Fe Ballet 2021 -2.738159e+01 96963
237101094 Pittsburgh Ballet Theatre 2017 2.690473e+01 9708397
316050354 Cincinnati Ballet 2019 -2.645454e+01 905727
911976719 ARC Dance Company 2018 2.639020e+01 6705
581336559 Gwinnett Ballet Theatre 2019 -2.568160e+01 35409
421366753 Ballet Quad Cities 2018 -2.556847e+01 11653
46193015 Albany Berkshire Ballet 2020 -2.505527e+01 3051
770154765 Central West Ballet 2020 -2.476572e+01 15013
870264274 Ballet West 2017 2.475932e+01 2135952
201819852 Los Angeles Ballet 2018 -2.445953e+01 121738
342066059 Indianapolis Ballet 2018 2.402437e+01 25647
911976719 ARC Dance Company 2021 2.378818e+01 4418
264256235 Winston-Salem Festival Ballet 2018 -2.364697e+01 10468
770154765 Central West Ballet 2018 -2.362600e+01 19955
943417247 Ballet Des Moines 2017 -2.343010e+01 14876
454864757 Dissonance Dance Theatre 2021 2.307692e+01 80000
201819852 Los Angeles Ballet 2020 2.284565e+01 102312
133307859 Armitage Gone! Dance 2021 2.255843e+01 10855
942952809 Utah Metropolitan Ballet 2021 -2.255733e+01 57979
237273533 The Tallahassee Ballet 2017 -2.250359e+01 21024
581336559 Gwinnett Ballet Theatre 2020 -2.245192e+01 27459
342066059 Indianapolis Ballet 2019 -2.235349e+01 19914
813872831 Ballet Sun Valley 2019 -2.225122e+01 4766
841622654 Texas Ballet Theater 2020 NA 959991
581336559 Gwinnett Ballet Theatre 2018 -2.110057e+01 47645
264256235 Winston-Salem Festival Ballet 2017 -2.084296e+01 13710
46193015 Albany Berkshire Ballet 2019 -2.064327e+01 4071
316050354 Cincinnati Ballet 2016 -2.044323e+01 1698759
264256235 Winston-Salem Festival Ballet 2020 -2.002712e+01 5898
520846173 The Washington Ballet 2017 1.990090e+01 6463662
50377245 Festival Ballet Providence 2021 1.978110e+01 521588
201819852 Los Angeles Ballet 2017 -1.941999e+01 161156
942952809 Utah Metropolitan Ballet 2020 -1.941553e+01 74867
161328541 Rochester City Ballet 2021 -1.879196e+01 139098
640732185 Ballet Magnificat! 2018 1.830321e+01 386357
942711919 Post:ballet 2020 -1.827700e+01 193489
454231295 Marigny Opera Ballet 2020 1.820013e+01 11151
942933309 Alonzo King LINES Ballet 2018 -1.804813e+01 336201
820301511 Ballet Idaho 2019 -1.798587e+01 344347
813872831 Ballet Sun Valley 2020 1.791859e+01 5620
131882106 American Ballet Theatre 2016 1.778384e+01 6949069
910897129 Pacific Northwest Ballet 2017 1.775333e+01 5816733
133307859 Armitage Gone! Dance 2020 -1.770117e+01 8857
541244590 Manassas Ballet Theatre 2022 -1.767260e+01 55175
203447830 Boulder Ballet 2017 -1.764637e+01 70442
222411345 Atlantic City Ballet 2020 -1.612231e+01 1207
640732185 Ballet Magnificat! 2019 -1.608305e+01 324219
841223229 Wonderbound 2016 -1.598201e+01 67821
521151372 Ballet Theatre of Maryland 2017 1.586265e+01 171413
800923968 Bay Pointe Ballet 2017 1.581920e+01 383892
412168110 Ballet Fantastique 2022 -1.581126e+01 5085
591834099 Ballet Pensacola 2020 1.567069e+01 331555
342066059 Indianapolis Ballet 2017 -1.557524e+01 20679
510394850 First State Ballet Theatre 2018 -1.553670e+01 29264
311784286 BalletX 2017 -1.530675e+01 22171
411787932 James Sewell Ballet 2018 -1.530336e+01 99101
316050354 Cincinnati Ballet 2021 -1.510434e+01 804973
161328541 Rochester City Ballet 2020 -1.504176e+01 171286
521151372 Ballet Theatre of Maryland 2020 -1.496212e+01 151438
133307859 Armitage Gone! Dance 2018 -1.463374e+01 10372
943417247 Ballet Des Moines 2019 -1.451997e+01 8966
510394850 First State Ballet Theatre 2017 -1.450463e+01 34647
521151372 Ballet Theatre of Maryland 2018 1.434255e+01 195998
841622654 Texas Ballet Theater 2018 1.417349e+01 1096480
133235682 New York Theatre Ballet 2020 -1.411043e+01 89600
841150857 Aspen Santa Fe Ballet 2018 -1.408309e+01 175847
131882106 American Ballet Theatre 2021 -1.407439e+01 5739009
416055588 The Minnesota Ballet 2020 -1.401054e+01 68034
131882106 American Ballet Theatre 2020 -1.372120e+01 6679044
412168110 Ballet Fantastique 2021 -1.365261e+01 6040
841150857 Aspen Santa Fe Ballet 2017 -1.358149e+01 204671
841223229 Wonderbound 2018 1.337666e+01 86359
131882106 American Ballet Theatre 2017 -1.317375e+01 6033616
841150857 Aspen Santa Fe Ballet 2019 -1.316542e+01 152696
946137593 Peninsula Ballet Theatre 2017 -1.283200e+01 68297
311784286 BalletX 2021 -1.263860e+01 613678
841150857 Aspen Santa Fe Ballet 2020 -1.255567e+01 133524
133235682 New York Theatre Ballet 2019 -1.236559e+01 104320
841223229 Wonderbound 2017 1.231035e+01 76170
841622654 Texas Ballet Theater 2019 1.210291e+01 1229186
510394850 First State Ballet Theatre 2019 -1.206944e+01 25732
412168110 Ballet Fantastique 2020 -1.201258e+01 6995
942711919 Post:ballet 2021 -1.200688e+01 170257
416055588 The Minnesota Ballet 2018 -1.195697e+01 59422
311784286 BalletX 2019 -1.189273e+01 702459
640732185 Ballet Magnificat! 2020 -1.185248e+01 285791
210732575 American Repertory Ballet 2019 -1.176639e+01 1036609
237161084 PHILADANCO! 2017 -1.159633e+01 173387
42312734 Boston Ballet 2021 -1.129589e+01 11284209
581891235 Ballethnic Dance Company 2021 -1.117950e+01 161346
231629970 Pennsylvania Ballet 2020 1.075569e+01 14028295
412168110 Ballet Fantastique 2019 -1.072431e+01 7950
941674349 Sacramento Ballet 2019 -1.055358e+01 1681547
941415298 San Francisco Ballet 2019 -1.051488e+01 21805578
42312734 Boston Ballet 2020 -1.035946e+01 12721180
42312734 Boston Ballet 2018 1.025203e+01 12896913
581891235 Ballethnic Dance Company 2020 -1.005536e+01 181654
42312734 Boston Ballet 2019 1.003660e+01 14191325
942933309 Alonzo King LINES Ballet 2017 9.754349e+00 410242
391387619 Madison Ballet 2017 -9.665116e+00 157264
650135900 The Sarasota Ballet 2019 -9.629568e+00 975303
910897129 Pacific Northwest Ballet 2021 -9.212477e+00 11214537
941674349 Sacramento Ballet 2020 -9.184995e+00 1527097
521151372 Ballet Theatre of Maryland 2019 -9.140399e+00 178083
237101094 Pittsburgh Ballet Theatre 2021 9.103534e+00 9856170
61537525 Ballet Theatre Company 2021 -8.974316e+00 108519
910897129 Pacific Northwest Ballet 2020 -8.794029e+00 12352509
341645238 Verb Ballets 2020 -8.784063e+00 41942
222587551 Island Moving Company 2019 8.734289e+00 191368
20569320 Brooklyn Ballet 2018 8.694061e+00 20791
411787932 James Sewell Ballet 2019 -8.436847e+00 90740
61537525 Ballet Theatre Company 2019 -8.235964e+00 119218
942427112 Nevada Ballet Theatre 2020 -8.197128e+00 3822544
132642091 Dance Theatre of Harlem 2020 8.090813e+00 5425827
542124670 Terpsicorps Theatre of Dance 2020 -8.071815e+00 74961
132642091 Dance Theatre of Harlem 2019 8.053212e+00 5019693
132584273 Alvin Ailey American Dance Theater 2019 8.026053e+00 58091753
455395602 Ballet 5:8 2019 -7.985322e+00 23069
510394850 First State Ballet Theatre 2020 7.869579e+00 27757
50377245 Festival Ballet Providence 2020 -7.810231e+00 435451
640732185 Ballet Magnificat! 2016 -7.805240e+00 333143
364009741 Joffrey Ballet 2018 7.675111e+00 19481982
900545068 Charlottesville Ballet 2020 -7.640599e+00 105794
382026127 Grand Rapids Ballet 2021 -7.547572e+00 4129041
520846173 The Washington Ballet 2018 -7.456563e+00 5981695
133235682 New York Theatre Ballet 2017 -7.435413e+00 58760
941415298 San Francisco Ballet 2018 -7.404368e+00 24367825
942427112 Nevada Ballet Theatre 2019 -7.397752e+00 4163861
860367773 Ballet Arizona 2018 -7.372833e+00 4213143
222587551 Island Moving Company 2020 -7.368003e+00 177268
941415298 San Francisco Ballet 2020 -7.342873e+00 20204422
621018942 Ballet Memphis 2018 -7.305455e+00 2342190
860367773 Ballet Arizona 2017 -7.187681e+00 4548496
161328541 Rochester City Ballet 2018 7.158793e+00 195972
900545068 Charlottesville Ballet 2019 -7.107291e+00 114546
942427112 Nevada Ballet Theatre 2018 -7.082247e+00 4496501
870264274 Ballet West 2020 -6.995292e+00 4039134
742371103 Ballet San Antonio 2017 6.944180e+00 11227
133235682 New York Theatre Ballet 2016 -6.920821e+00 63480
931009305 Oregon Ballet Theatre 2019 6.881823e+00 462421
811657501 New Ballet - San Jose 2020 6.820219e+00 35757
860367773 Ballet Arizona 2019 -6.806961e+00 3926356
132947386 New York City Ballet 2020 -6.742022e+00 73465785
841223229 Wonderbound 2020 -6.715101e+00 127888
581440788 Nashville Ballet 2018 -6.689582e+00 7801392
942427112 Nevada Ballet Theatre 2017 -6.554095e+00 4839227
391387619 Madison Ballet 2019 -6.443916e+00 139189
382026127 Grand Rapids Ballet 2019 -6.428610e+00 4466125
840776736 Canyon Concert Ballet 2017 -6.397471e+00 731237
520846173 The Washington Ballet 2019 -6.216248e+00 5609858
581336559 Gwinnett Ballet Theatre 2017 -6.152675e+00 60387
50377245 Festival Ballet Providence 2017 -6.060151e+00 493854
222587551 Island Moving Company 2018 5.907485e+00 175996
382026127 Grand Rapids Ballet 2018 -5.770551e+00 4772960
741394920 Houston Ballet 2019 -5.660186e+00 44648997
621018942 Ballet Memphis 2017 -5.626729e+00 2526783
930765746 Eugene Ballet 2018 5.548656e+00 1987801
391387619 Madison Ballet 2018 -5.397294e+00 148776
520846173 The Washington Ballet 2020 -5.350688e+00 5309692
132947386 New York City Ballet 2021 -5.308784e+00 69565645
42312734 Boston Ballet 2017 -5.122078e+00 11697665
941415298 San Francisco Ballet 2017 -5.111712e+00 26316387
237247009 Chattanooga Ballet 2019 5.007393e+00 375686
581314711 Charlotte Ballet 2018 4.996020e+00 12325677
581440788 Nashville Ballet 2017 -4.976925e+00 8360687
941415298 San Francisco Ballet 2021 -4.902080e+00 19213985
50377245 Festival Ballet Providence 2019 -4.757469e+00 472342
316050354 Cincinnati Ballet 2020 4.688388e+00 948191
581440788 Nashville Ballet 2019 -4.470087e+00 7452663
946137593 Peninsula Ballet Theatre 2018 4.369152e+00 71281
911976719 ARC Dance Company 2019 -4.310216e+00 6416
132685755 Ballet Hispanico 2021 -4.194670e+00 8383523
741394920 Houston Ballet 2020 -4.131383e+00 42804376
341645238 Verb Ballets 2019 -4.106361e+00 45981
391387619 Madison Ballet 2021 -4.093147e+00 348631
581314711 Charlotte Ballet 2021 -4.017236e+00 11411292
942933309 Alonzo King LINES Ballet 2020 -3.956802e+00 159012
391134735 Milwaukee Ballet 2018 3.939803e+00 1201409
10420070 Maine State Ballet 2019 -3.926087e+00 1454046
237247009 Chattanooga Ballet 2018 -3.914370e+00 357771
364009741 Joffrey Ballet 2019 -3.812697e+00 18739193
133307859 Armitage Gone! Dance 2019 3.760123e+00 10762
210732575 American Repertory Ballet 2021 -3.751955e+00 1008898
946137593 Peninsula Ballet Theatre 2019 3.737321e+00 73945
132685755 Ballet Hispanico 2022 -3.605370e+00 8081266
746060386 Ballet Austin 2021 -3.596989e+00 9096163
860717486 State Street Ballet 2021 -3.591064e+00 186398
730667485 Tulsa Ballet 2021 -3.500246e+00 15949600
61478674 Mystic Ballet 2017 3.498049e+00 50121
860717486 State Street Ballet 2020 -3.466578e+00 193341
364009741 Joffrey Ballet 2020 -3.423787e+00 18097603
10420070 Maine State Ballet 2021 -3.415375e+00 1359813
436052680 Kansas City Ballet 2020 -3.404324e+00 23587761
860717486 State Street Ballet 2019 -3.350432e+00 200284
581420599 The Georgia Ballet 2020 -3.337155e+00 953491
132642091 Dance Theatre of Harlem 2018 -3.334978e+00 4645575
132642091 Dance Theatre of Harlem 2017 -3.264883e+00 4805849
364009741 Joffrey Ballet 2021 -3.257337e+00 17508103
860367773 Ballet Arizona 2021 -3.256919e+00 3695933
860717486 State Street Ballet 2018 -3.241817e+00 207227
746060386 Ballet Austin 2018 -3.187323e+00 9828999
581420599 The Georgia Ballet 2018 -3.185767e+00 1018265
10420070 Maine State Ballet 2020 -3.173765e+00 1407898
746060386 Ballet Austin 2019 -3.165887e+00 9517824
237101094 Pittsburgh Ballet Theatre 2018 -3.159255e+00 9401684
860717486 State Street Ballet 2017 -3.140023e+00 214170
581420599 The Georgia Ballet 2019 -3.128459e+00 986409
581420599 The Georgia Ballet 2017 -3.087409e+00 1051772
581440788 Nashville Ballet 2020 -3.081100e+00 7223039
930765746 Eugene Ballet 2019 -3.066907e+00 1926837
581314711 Charlotte Ballet 2020 -2.951075e+00 11888897
161328541 Rochester City Ballet 2019 2.877962e+00 201612
591837297 Florida Ballet Jacksonville 2019 -2.850950e+00 26443
591837297 Florida Ballet Jacksonville 2018 -2.764977e+00 27219
581047778 Atlanta Ballet 2017 -2.719092e+00 9506697
860367773 Ballet Arizona 2020 -2.699628e+00 3820359
591837297 Florida Ballet Jacksonville 2017 -2.697348e+00 27993
436052680 Kansas City Ballet 2019 -2.655843e+00 24419065
237003520 Oklahoma City Ballet 2021 -2.564361e+00 7182548
237247009 Chattanooga Ballet 2017 -2.549164e+00 372346
841622654 Texas Ballet Theater 2017 2.494149e+00 960363
846038137 Colorado Ballet 2017 -2.476136e+00 6210583
741394920 Houston Ballet 2017 2.459171e+00 48032592
364009741 Joffrey Ballet 2017 -2.457993e+00 18093301
132584273 Alvin Ailey American Dance Theater 2020 -2.360278e+00 56720626
846038137 Colorado Ballet 2019 -2.305901e+00 5940573
454231295 Marigny Opera Ballet 2021 -2.304726e+00 10894
132685755 Ballet Hispanico 2017 -2.280183e+00 9666285
237101094 Pittsburgh Ballet Theatre 2019 -2.266275e+00 9188616
10420070 Maine State Ballet 2017 -2.254606e+00 1530210
930765746 Eugene Ballet 2017 -2.218194e+00 1883303
391134735 Milwaukee Ballet 2017 -2.108710e+00 1155870
591834099 Ballet Pensacola 2021 2.107041e+00 338541
846038137 Colorado Ballet 2018 -2.089868e+00 6080790
611329176 Kentucky Ballet Theatre 2018 -2.029738e+00 4151
616033779 Louisville Ballet 2021 2.014286e+00 1330302
640732185 Ballet Magnificat! 2017 -1.969424e+00 326582
581440788 Nashville Ballet 2016 -1.931043e+00 8798586
237273533 The Tallahassee Ballet 2018 -1.926370e+00 20619
132584273 Alvin Ailey American Dance Theater 2021 -1.917412e+00 55633058
746060386 Ballet Austin 2017 -1.790563e+00 10152595
237101094 Pittsburgh Ballet Theatre 2020 -1.685118e+00 9033777
846038137 Colorado Ballet 2020 -1.566011e+00 5847543
630505056 Huntsville Ballet Company 2017 -1.538159e+00 792478
231629970 Pennsylvania Ballet 2021 -1.524056e+00 13814496
132947386 New York City Ballet 2018 -1.506155e+00 19222563
741394920 Houston Ballet 2018 -1.467235e+00 47327841
231629970 Pennsylvania Ballet 2019 1.422666e+00 12665981
132584273 Alvin Ailey American Dance Theater 2017 1.297975e+00 37737665
131882106 American Ballet Theatre 2019 -1.232231e+00 7741234
581047778 Atlanta Ballet 2021 -1.163018e+00 13506553
210732575 American Repertory Ballet 2020 1.120770e+00 1048227
10420070 Maine State Ballet 2018 -1.094229e+00 1513466
581314711 Charlotte Ballet 2017 1.072441e+00 11739185
846038137 Colorado Ballet 2021 -9.744435e-01 5790562
741394920 Houston Ballet 2021 9.262931e-01 43200870
231629970 Pennsylvania Ballet 2017 -8.927498e-01 12474472
630813626 The Alabama Ballet 2018 -8.924942e-01 1377520
746060386 Ballet Austin 2020 -8.643257e-01 9435559
650135900 The Sarasota Ballet 2021 -7.769355e-01 1414525
581314711 Charlotte Ballet 2019 -6.106034e-01 12250416
237161084 PHILADANCO! 2021 4.322833e-01 1041999
50377245 Festival Ballet Providence 2018 4.215821e-01 495936
132642091 Dance Theatre of Harlem 2021 4.199913e-01 5448615
132947386 New York City Ballet 2017 2.816764e-01 19516512
231629970 Pennsylvania Ballet 2018 1.109626e-01 12488314
941674349 Sacramento Ballet 2021 7.301440e-02 1528212
953645705 Anaheim Ballet 2021 0.000000e+00 118
942952809 Utah Metropolitan Ballet 2016 0.000000e+00 7548
942952809 Utah Metropolitan Ballet 2017 0.000000e+00 46927
942952809 Utah Metropolitan Ballet 2019 0.000000e+00 92905
942952809 Utah Metropolitan Ballet 2020 0.000000e+00 74867
942952809 Utah Metropolitan Ballet 2021 0.000000e+00 57979
900545068 Charlottesville Ballet 2015 0.000000e+00 61640
900545068 Charlottesville Ballet 2017 0.000000e+00 123310
900545068 Charlottesville Ballet 2019 0.000000e+00 114546
900545068 Charlottesville Ballet 2020 0.000000e+00 105794
880491536 Sierra Nevada Ballet 2017 0.000000e+00 3377
880491536 Sierra Nevada Ballet 2019 0.000000e+00 11828
880491536 Sierra Nevada Ballet 2020 0.000000e+00 -97925
880491536 Sierra Nevada Ballet 2021 0.000000e+00 6285
841622654 Texas Ballet Theater 2016 0.000000e+00 936993
841622654 Texas Ballet Theater 2017 0.000000e+00 960363
841622654 Texas Ballet Theater 2018 0.000000e+00 1096480
841622654 Texas Ballet Theater 2019 0.000000e+00 1229186
841622654 Texas Ballet Theater 2020 0.000000e+00 959991
841622654 Texas Ballet Theater 2021 0.000000e+00 6675391
841223229 Wonderbound 2015 0.000000e+00 80722
841223229 Wonderbound 2016 0.000000e+00 67821
841223229 Wonderbound 2017 0.000000e+00 76170
841223229 Wonderbound 2018 0.000000e+00 86359
841223229 Wonderbound 2019 0.000000e+00 137094
841223229 Wonderbound 2020 0.000000e+00 127888
841150857 Aspen Santa Fe Ballet 2016 0.000000e+00 236837
841150857 Aspen Santa Fe Ballet 2017 0.000000e+00 204671
841150857 Aspen Santa Fe Ballet 2018 0.000000e+00 175847
841150857 Aspen Santa Fe Ballet 2019 0.000000e+00 152696
841150857 Aspen Santa Fe Ballet 2020 0.000000e+00 133524
841150857 Aspen Santa Fe Ballet 2021 0.000000e+00 96963
840776736 Canyon Concert Ballet 2016 0.000000e+00 781215
840776736 Canyon Concert Ballet 2017 0.000000e+00 731237
840776736 Canyon Concert Ballet 2019 0.000000e+00 1400356
840776736 Canyon Concert Ballet 2020 0.000000e+00 724838
820301511 Ballet Idaho 2016 0.000000e+00 234907
820301511 Ballet Idaho 2017 0.000000e+00 419863
820301511 Ballet Idaho 2019 0.000000e+00 344347
820301511 Ballet Idaho 2020 0.000000e+00 652351
820301511 Ballet Idaho 2021 0.000000e+00 1964392
813872831 Ballet Sun Valley 2018 0.000000e+00 6130
813872831 Ballet Sun Valley 2019 0.000000e+00 4766
813872831 Ballet Sun Valley 2020 0.000000e+00 5620
813872831 Ballet Sun Valley 2022 0.000000e+00 85028
800923968 Bay Pointe Ballet 2016 0.000000e+00 331458
800923968 Bay Pointe Ballet 2017 0.000000e+00 383892
742371103 Ballet San Antonio 2016 0.000000e+00 10498
742371103 Ballet San Antonio 2017 0.000000e+00 11227
742371103 Ballet San Antonio 2018 0.000000e+00 7926
742371103 Ballet San Antonio 2019 0.000000e+00 3773
742371103 Ballet San Antonio 2020 0.000000e+00 7200
742371103 Ballet San Antonio 2021 0.000000e+00 134186
730667485 Tulsa Ballet 2016 0.000000e+00 12334203
730667485 Tulsa Ballet 2017 0.000000e+00 16339230
730667485 Tulsa Ballet 2018 0.000000e+00 34586787
730667485 Tulsa Ballet 2020 0.000000e+00 16528125
730667485 Tulsa Ballet 2021 0.000000e+00 15949600
630813626 The Alabama Ballet 2017 0.000000e+00 1389925
630813626 The Alabama Ballet 2018 0.000000e+00 1377520
630813626 The Alabama Ballet 2019 0.000000e+00 2663508
630813626 The Alabama Ballet 2020 0.000000e+00 1278406
611329176 Kentucky Ballet Theatre 2017 0.000000e+00 4237
611329176 Kentucky Ballet Theatre 2018 0.000000e+00 4151
611329176 Kentucky Ballet Theatre 2019 0.000000e+00 8170
611329176 Kentucky Ballet Theatre 2020 0.000000e+00 20349
462580700 Moveius Contemporary Ballet 2019 0.000000e+00 560860
462580700 Moveius Contemporary Ballet 2020 0.000000e+00 317578
454864757 Dissonance Dance Theatre 2019 0.000000e+00 65000
454864757 Dissonance Dance Theatre 2020 0.000000e+00 65000
454864757 Dissonance Dance Theatre 2020 0.000000e+00 65000
454864757 Dissonance Dance Theatre 2021 0.000000e+00 80000
452960043 Ballet des Ameriques 2017 0.000000e+00 1444
452461068 Menlowe Ballet 2018 0.000000e+00 1584
452461068 Menlowe Ballet 2019 0.000000e+00 1131
452461068 Menlowe Ballet 2020 0.000000e+00 808
452461068 Menlowe Ballet 2021 0.000000e+00 577
436052680 Kansas City Ballet 2016 0.000000e+00 1102639
436052680 Kansas City Ballet 2017 0.000000e+00 1936344
436052680 Kansas City Ballet 2018 0.000000e+00 25085291
436052680 Kansas City Ballet 2019 0.000000e+00 24419065
436052680 Kansas City Ballet 2020 0.000000e+00 23587761
431756712 Missouri Contemporary Ballet 2019 0.000000e+00 862
391387619 Madison Ballet 2016 0.000000e+00 174090
391387619 Madison Ballet 2017 0.000000e+00 157264
391387619 Madison Ballet 2018 0.000000e+00 148776
391387619 Madison Ballet 2019 0.000000e+00 139189
391387619 Madison Ballet 2020 0.000000e+00 363510
391387619 Madison Ballet 2021 0.000000e+00 348631
391134735 Milwaukee Ballet 2016 0.000000e+00 1180769
391134735 Milwaukee Ballet 2017 0.000000e+00 1155870
391134735 Milwaukee Ballet 2018 0.000000e+00 1201409
391134735 Milwaukee Ballet 2019 0.000000e+00 23903282
383945001 Cleveland Ballet 2019 0.000000e+00 2766
383945001 Cleveland Ballet 2021 0.000000e+00 58105
383945001 Cleveland Ballet 2022 0.000000e+00 101898
382026127 Grand Rapids Ballet 2016 0.000000e+00 11023918
382026127 Grand Rapids Ballet 2017 0.000000e+00 5065253
382026127 Grand Rapids Ballet 2018 0.000000e+00 4772960
382026127 Grand Rapids Ballet 2019 0.000000e+00 4466125
382026127 Grand Rapids Ballet 2021 0.000000e+00 4129041
341645238 Verb Ballets 2016 0.000000e+00 5337
341645238 Verb Ballets 2017 0.000000e+00 2736
341645238 Verb Ballets 2018 0.000000e+00 47950
341645238 Verb Ballets 2019 0.000000e+00 45981
341645238 Verb Ballets 2020 0.000000e+00 41942
237161084 PHILADANCO! 2016 0.000000e+00 196131
237161084 PHILADANCO! 2017 0.000000e+00 173387
237161084 PHILADANCO! 2018 0.000000e+00 1037514
237161084 PHILADANCO! 2019 0.000000e+00 1037514
237161084 PHILADANCO! 2019 0.000000e+00 1037514
237161084 PHILADANCO! 2020 0.000000e+00 1037514
237161084 PHILADANCO! 2020 0.000000e+00 1037514
237161084 PHILADANCO! 2021 0.000000e+00 1041999
222411345 Atlantic City Ballet 2016 0.000000e+00 24168
222411345 Atlantic City Ballet 2018 0.000000e+00 1439
222411345 Atlantic City Ballet 2020 0.000000e+00 1207
953645705 Anaheim Ballet 2020 NA 118
952582305 California Ballet 2016 NA 36399
946137593 Peninsula Ballet Theatre 2016 NA 78351
943417247 Ballet Des Moines 2016 NA 19428
943395450 Oakland Ballet Company 2016 NA 31910
943197247 Smuin Ballet 2015 NA 105534
943185291 Diablo Ballet 2015 NA 0
943185291 Diablo Ballet 2016 NaN 0
943185291 Diablo Ballet 2017 NaN 0
943185291 Diablo Ballet 2018 NaN 0
943185291 Diablo Ballet 2019 NaN 0
943185291 Diablo Ballet 2021 NaN 0
942952809 Utah Metropolitan Ballet 2016 NA 7548
942933309 Alonzo King LINES Ballet 2016 NA 373782
942711919 Post:ballet 2016 NA 697
942427112 Nevada Ballet Theatre 2016 NA 5178640
941674349 Sacramento Ballet 2016 NA 39712
941415298 San Francisco Ballet 2016 NA 27734073
931009305 Oregon Ballet Theatre 2016 NA 2322066
930765746 Eugene Ballet 2016 NA 1926026
911976719 ARC Dance Company 2016 NA 8152
910897129 Pacific Northwest Ballet 2016 NA 4939761
900545068 Charlottesville Ballet 2015 NA 61640
880491536 Sierra Nevada Ballet 2017 NA 3377
870264274 Ballet West 2016 NA 1712058
860717486 State Street Ballet 2016 NA 221113
860367773 Ballet Arizona 2016 NA 4900746
846038137 Colorado Ballet 2016 NA 6368270
841622654 Texas Ballet Theater 2016 NA 936993
841223229 Wonderbound 2015 NA 80722
841150857 Aspen Santa Fe Ballet 2016 NA 236837
840776736 Canyon Concert Ballet 2016 NA 781215
820569013 Ballet Palm Beach 2018 NA 9204
820301511 Ballet Idaho 2016 NA 234907
813872831 Ballet Sun Valley 2018 NA 6130
811657501 New Ballet - San Jose 2016 NA 928
800923968 Bay Pointe Ballet 2016 NA 331458
770154765 Central West Ballet 2015 NA 57841
746060386 Ballet Austin 2016 NA 10337698
742371103 Ballet San Antonio 2016 NA 10498
741394920 Houston Ballet 2016 NA 46879739
730667485 Tulsa Ballet 2016 NA 12334203
650135900 The Sarasota Ballet 2016 NA 790474
640732185 Ballet Magnificat! 2015 NA 361347
630813626 The Alabama Ballet 2017 NA 1389925
630505056 Huntsville Ballet Company 2016 NA 804858
621018942 Ballet Memphis 2015 NA 2677435
61605067 Les Ballets Eloelle/Grandiva 2016 NA 0
61605067 Les Ballets Eloelle/Grandiva 2018 NaN 0
61605067 Les Ballets Eloelle/Grandiva 2019 NaN 0
61605067 Les Ballets Eloelle/Grandiva 2020 NaN 0
61605067 Les Ballets Eloelle/Grandiva 2021 NaN 0
616033779 Louisville Ballet 2020 NA 1304035
61537525 Ballet Theatre Company 2018 NA 129918
61478674 Mystic Ballet 2015 NA 48427
611329176 Kentucky Ballet Theatre 2017 NA 4237
61039302 Connecticut Ballet 2016 NA 11627
61039302 Connecticut Ballet 2021 NaN 0
592578534 Miami City Ballet 2017 NA 1712103
591837297 Florida Ballet Jacksonville 2016 NA 28769
591834099 Ballet Pensacola 2016 NA 115423
581891235 Ballethnic Dance Company 2017 NA 392810
581440788 Nashville Ballet 2015 NA 8971836
581420599 The Georgia Ballet 2016 NA 1085279
581336559 Gwinnett Ballet Theatre 2016 NA 64346
581314711 Charlotte Ballet 2016 NA 11614625
581047778 Atlanta Ballet 2015 NA 9772418
561445383 Carolina Ballet 2020 NA 464156
550397803 The Charleston Ballet 2021 NA 0
550397803 The Charleston Ballet 2021 NaN 0
546049848 Richmond Ballet 2018 NA 4836755
542124670 Terpsicorps Theatre of Dance 2019 NA 81543
541244590 Manassas Ballet Theatre 2020 NA 67019
521151372 Ballet Theatre of Maryland 2016 NA 147945
520846173 The Washington Ballet 2016 NA 5390837
510394850 First State Ballet Theatre 2016 NA 40525
510161971 Lexington Ballet 2021 NA 8154
50377245 Festival Ballet Providence 2016 NA 525713
462580700 Moveius Contemporary Ballet 2019 NA 560860
46193015 Albany Berkshire Ballet 2017 NA 7479
461513558 Ballet Vero Beach 2021 NA 175814
460742535 NWA Ballet Theatre 2019 NA 3000
455395602 Ballet 5:8 2016 NA 53039
454864757 Dissonance Dance Theatre 2019 NA 65000
454231295 Marigny Opera Ballet 2017 NA 2277
452960043 Ballet des Ameriques 2017 NA 1444
452461068 Menlowe Ballet 2018 NA 1584
436052680 Kansas City Ballet 2016 NA 1102639
431756712 Missouri Contemporary Ballet 2015 NA 5130
42312734 Boston Ballet 2016 NA 12329175
421366753 Ballet Quad Cities 2016 NA 1512
416055588 The Minnesota Ballet 2015 NA 51560
412168110 Ballet Fantastique 2018 NA 8905
411787932 James Sewell Ballet 2016 NA 117007
411703583 Ballet Minnesota 2020 NA 0
411703583 Ballet Minnesota 2020 NaN 0
391387619 Madison Ballet 2016 NA 174090
391134735 Milwaukee Ballet 2016 NA 1180769
383945001 Cleveland Ballet 2019 NA 2766
382026127 Grand Rapids Ballet 2016 NA 11023918
364009741 Joffrey Ballet 2016 NA 18549240
356006394 Fort Wayne Ballet 2018 NA 103833
342066059 Indianapolis Ballet 2016 NA 24494
341645238 Verb Ballets 2016 NA 5337
330461414 San Diego Ballet 2021 NA 1409
316050354 Cincinnati Ballet 2015 NA 2135279
316000101 Dayton Ballet 2021 NA 417276
311784286 BalletX 2016 NA 26178
310858562 BalletMet 2016 NA 10405623
271093011 American Midwest Ballet 2018 NA 935
270524329 Ballet Frontier 2019 NA 0
270524329 Ballet Frontier 2020 NaN 0
270524329 Ballet Frontier 2021 NaN 0
264256235 Winston-Salem Festival Ballet 2016 NA 17320
262443093 Ballet Virginia 2019 NA 30494
260868264 Paradosi Ballet Company 2017 NA 6209
237447316 New Jersey Ballet Company 2016 NA 66683
237427817 Orlando Ballet 2021 NA 11892197
237424849 Saint Louis Ballet 2020 NA 14982
237282935 Carolina Ballet Theatre 2021 NA 0
237273533 The Tallahassee Ballet 2016 NA 27129
237247909 New Mexico Ballet Company 2020 NA 4854
237247009 Chattanooga Ballet 2016 NA 382086
237161084 PHILADANCO! 2016 NA 196131
237133145 Columbia City Ballet 2016 NA 13775
237133145 Columbia City Ballet 2022 NaN 0
237101094 Pittsburgh Ballet Theatre 2015 NA 4102549
237003520 Oklahoma City Ballet 2020 NA 7371582
231629970 Pennsylvania Ballet 2016 NA 12586841
223466604 Roxey Ballet 2015 NA 506
222587551 Island Moving Company 2015 NA 307
222411345 Atlantic City Ballet 2016 NA 24168
210732575 American Repertory Ballet 2016 NA 2310808
205888512 Collage Dance Collective 2016 NA 30542
205713495 Cuban Classical Ballet of Miami 2021 NA 117000
20569320 Brooklyn Ballet 2015 NA 19128
203447830 Boulder Ballet 2015 NA -253
201819852 Los Angeles Ballet 2016 NA 199995
161530816 Syracuse City Ballet 2021 NA 89944
161328541 Rochester City Ballet 2016 NA 1500003
134280268 American Contemporary Ballet 2018 NA 9073
133307859 Armitage Gone! Dance 2016 NA 118057
133235682 New York Theatre Ballet 2015 NA 68200
132947386 New York City Ballet 2016 NA 19461693
132685755 Ballet Hispanico 2016 NA 9891837
132642091 Dance Theatre of Harlem 2016 NA 4968050
132584273 Alvin Ailey American Dance Theater 2016 NA 37254116
131882106 American Ballet Theatre 2015 NA 5899849
10420070 Maine State Ballet 2016 NA 1565506
10372997 Portland Ballet 2015 NA 164549
#filter out small changes 
change_less_than_10<-changes %>% 
  filter(change_abs <=10)

#istogram of all large changes 
ggplotly(
  ggplot(change_less_than_10, aes(x = change_abs)) + 
  geom_histogram()+
  theme_bw()
  )
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
# filter out all % change larger than 10
change_larger_than_10 <- changes %>% 
  filter(change_abs > 10)

# generate histogram of all absolute changes 
ggplotly(
  ggplot(change_larger_than_10, aes(x = change_abs)) + 
  geom_histogram()+
  theme_bw()
  )
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## Warning: Removed 1 rows containing non-finite values (`stat_bin()`).
# All summary statistics 
changes %>% 
  drop_na() %>% 
  group_by(year) %>% 
  summarise(mean = mean(change),
            median = median(change),
            max = max(change),
            min = min(change)) %>% 
  kbl(caption = "Summary statistics of Building Book Value Changes (Fiscal Year)") %>%
  kable_material() %>%
  row_spec(row = 0, background = "red", color = "white", bold = TRUE)
Summary statistics of Building Book Value Changes (Fiscal Year)
year mean median max min
2015 0.000000 0.0000000 0.0000 0.00000
2016 -1173.347109 0.0000000 86.4730 -33908.69565
2017 Inf -1.5381595 Inf -89.70836
2018 83.752663 0.0000000 3496.0354 -94.04585
2019 56.063802 -0.9214174 1889.6040 -52.39717
2020 -5.127411 -3.1737648 422.2073 -927.90835
2021 312.753529 -3.2571282 9567.2919 -106.41818
2022 98.364913 -16.7419293 1412.9537 -69.18017

Regional Analysis

bookvalues %>% 
  left_join(y = ein_to_state, by = "EIN")
test_state <- test_state %>% 
  mutate(
    Time = substring(ReturnTs, 1, 10),
    TotalBookValueLandBuildingsAmt = as.numeric(TotalBookValueLandBuildingsAmt)
  )
state_bookvalues <- ggplot(test_state, aes(x = factor(fiscal_year, level = c('2014','2015','2016','2017','2018','2019','2020','2021','2022')), y = as.numeric(test_state$TotalBookValueLandBuildingsAmt), color=as.factor(state)))+
  geom_point()+
  theme_bw() +
  theme(legend.key.size = unit(1, 'mm'),
        legend.text = element_text(size=7))+
  theme(plot.title = element_text(size = 10, face = "bold", hjust = .5),
        axis.title = element_text(size = 10, face = "bold"),
        plot.subtitle = element_text(size = 5, face = "italic", hjust = .5),
        axis.text.x = element_text(size = 10),
        axis.text.y = element_text(size = 6),
        strip.text = element_text(face="bold",size = 5)) +
  labs(y = "Bookvalues of buildings and other lands",
       x = "Fiscal year")

  
ggplotly(state_bookvalues)
## Warning: Use of `test_state$TotalBookValueLandBuildingsAmt` is discouraged.
## ℹ Use `TotalBookValueLandBuildingsAmt` instead.
summary_state <- test_state %>% 
  group_by(state, fiscal_year, name) %>% 
  summarise(
    max = max(TotalBookValueLandBuildingsAmt),
    min = min(TotalBookValueLandBuildingsAmt),
    mean = mean(TotalBookValueLandBuildingsAmt),
    median = median(TotalBookValueLandBuildingsAmt),
    Number = n()
  )
## `summarise()` has grouped output by 'state', 'fiscal_year'. You can override
## using the `.groups` argument.
ggplotly(
  summary_state %>% 
  ggplot(aes(x = fiscal_year, y = max, color = factor(name))) + geom_point()+ theme_bw()
)
test_state %>% 
  group_by(state,fiscal_year) %>% 
  summarise(
    max = max(TotalBookValueLandBuildingsAmt, na.rm=TRUE),
    min = min(TotalBookValueLandBuildingsAmt, na.rm=TRUE),
    mean = mean(TotalBookValueLandBuildingsAmt, na.rm=TRUE),
    median = median(TotalBookValueLandBuildingsAmt, na.rm=TRUE),
  )
## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf
## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf
## `summarise()` has grouped output by 'state'. You can override using the
## `.groups` argument.
ggplotly(
  test_state %>% group_by(state, fiscal_year) %>% 
  summarise(
    max = max(TotalBookValueLandBuildingsAmt,na.rm = TRUE),
    min = min(TotalBookValueLandBuildingsAmt,na.rm = TRUE),
    mean = mean(TotalBookValueLandBuildingsAmt,na.rm = TRUE),
    median = median(TotalBookValueLandBuildingsAmt,na.rm = TRUE),
    Number = n()
  ) %>% 
  ggplot(aes(x = fiscal_year, y = max, color = factor(state))) + geom_point() + theme_bw()
)
## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf

## Warning in max(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to max; returning -Inf
## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf

## Warning in min(TotalBookValueLandBuildingsAmt, na.rm = TRUE): no non-missing
## arguments to min; returning Inf
## `summarise()` has grouped output by 'state'. You can override using the
## `.groups` argument.
# companies whose business state is different from books state
diff_state<-test_state %>% 
 filter(business_state_cd != books_state_cd)
diff_state %>% 
  select(EIN, fiscal_year, name, business_state_cd, books_state_cd, state)